home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / ghost110.zip / GHOSTLOG.WAS < prev    next >
Text File  |  1992-12-14  |  1KB  |  42 lines
  1. ; GHOST BBS log on script - 12/14/92 05:32 PM
  2.  
  3. ; nothing fancy, just logs a user on to GHOST BBS. If the "- More [S 
  4. ; to stop] -" prompt appears, the user must respond, depending on 
  5. ; whether he wants to read the NEWS file or not. When you get to the 
  6. ; main menu of GHOST BBS, the script will stop.
  7.  
  8. ; to use this script, create a dialing directory entry for the GHOST 
  9. ; BBS you wish to call, and put your GHOST name and password in the 
  10. ; appropriate fields of the dialing directory entry. This script will 
  11. ; pick them up from there.
  12.  
  13. integer watchfor
  14. string prompt_str
  15.  
  16. proc main
  17.  
  18.    when target 0 "?" call handle_it
  19.  
  20.    watchfor = 1
  21.    while watchfor
  22.    endwhile
  23.  
  24.    exit
  25.  
  26. endproc
  27.  
  28. proc handle_it
  29.    termgets $ROW 0 prompt_str $COL
  30.  
  31.    if strfind prompt_str "FIRST name"
  32.       transmit $USERID
  33.       transmit "^M"
  34.    elseif strfind prompt_str "Password (Dots"
  35.       transmit $PASSWORD
  36.       transmit "^M"
  37.    elseif strfind prompt_str "Command"
  38.       watchfor = 0
  39.    endif
  40.  
  41. endproc
  42.